sub mc1000ink(tmsm as ubyte):
  poke $00F6,(tmsm band 15)
  end sub

